home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 5 / 005.d81 / the state game (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  54 lines
  1. 10 print chr$(147)
  2. 20 poke 53281,9
  3. 30 poke 53280,7
  4. 40 print chr$(5)
  5. 50 dim s$(100)
  6. 60 for x = 1 to 100
  7. 70 read s$(x)
  8. 80 next x
  9. 90 for a = 1 to 50
  10. 100 r = int (50 * rnd (1)) + 1
  11. 110 if s$(r * 2 - 1 )="paul" then 100
  12. 120 print "what is the capital of "
  13. 130 print s$(r * 2 -1)
  14. 140 print
  15. 150 input "";k$
  16. 151 if k$="?"then print"the answer is=";s$(r*2):print:goto 200
  17. 155 if k$ = "q" then 63000
  18. 160 if k$ = s$(r * 2) then print "correct answer #";a:print:goto 200
  19. 170 print "sorry...let's try again!
  20. 180 [133] "awaitnother state or swaitame?";c$
  21. 185 [139] c$ [178] "a" [167] [153]: [137] 100
  22. 190 [153]:[137] 120
  23. 200 s$(r [172] 2 [171] 1)[178]"paul"
  24. 210 [130] a
  25. 220 [153]:[153]:[153]"            that's all!!"
  26. 300 [129]x[178]1[164]2000:[130]
  27. 500 [137]63000
  28. 1000 [143] state data
  29. 1010 [131] alabama,montgomery,alaska,juneau,arizona,phoenix,arkansas,little rock
  30. 1020 [131] california,sacramento,colorado,denver,connecticut,hartford
  31. 1030 [131] delaware,dover,florida,tallahassee,georgia,atlanta,hawaii,honolulu
  32. 1040 [131] idaho,boise,illinois,springfield,indiana,indianapolis,iowa,des moines
  33. 1050 [131] kansas,topeka,kentucky,frankfort,louisiana,baton rouge,maine,augusta
  34. 1060 [131] maryland,annapolis,massachusets,boston,michigan,lansing
  35. 1070 [131] minnesota,st. paul,mississippi,jackson,missouri,jefferson city
  36. 1080 [131] montana,helena,nebraska,lincoln,nevada,carson city,new hampshire
  37. 1090 [131] concord,new jersey,trenton,new mexico,santa fe,new york,albany
  38. 1100 [131] north carolina,raleigh,north dakota,bismarck,ohio,columbus,oklahoma
  39. 1110 [131] oklahoma city,oregon,salem,pennsylvania,harrisburg,rhode island
  40. 1120 [131] providence,south carolina,columbia,south dakota,pierre,tennessee
  41. 1130 [131] nashville,texas,austin,utah,salt lake city,vermont,montpelier
  42. 1140 [131] virginia,richmond,washington,olympia,west virginia,charleston
  43. 1150 [131] wisconsin,madison,wyoming,cheyenne
  44. 5000 [143] paul raymer
  45. 5010 [143] 3464 townhouse dr
  46. 5020 [143] las vegas nv 89121
  47. 5030 [143]
  48. 5040 [143] viii/xv/mcmlxxxiii
  49. 63000 [153]"loadwant to try again?":[151]198,0:[146]198,1:[161]k$
  50. 63005 [139]k$[179][177]"y"[175]k$[179][177]"n"[167]63000
  51. 63010 [139]k$[178]"y"[167][140]:[153]"load":[137]60
  52. 63020 [153]"loadload"[199](34)"payload"[199](34)",8":[153]"run"
  53. 63030 [151]631,13:[151]632,13:[151]198,2:[128]
  54.